TITLE CRELSP
EXTERN INUM,MAKNUM

	DEFINE DATUM(NAM,WRD){
	INTERN NAM↔NAM:↔PUSHJ 14,INUM
	ADD 1,BASE
	MOVE 1,WRD(1)↔POPJ 14,}

	DEFINE LEFT(NAM,WRD){
	INTERN NAM↔NAM:↔PUSHJ 14,INUM
	ADD 1,BASE
	HLRZ 1,WRD(1)↔JRST MAKNUM}

	DEFINE RIGHT(NAM,WRD){
	INTERN NAM↔NAM:↔PUSHJ 14,INUM
	ADD 1,BASE
	HRRZ 1,WRD(1)↔JRST MAKNUM}

	LEFT(CW,0)↔RIGHT(CCW,0)
	LEFT(DAD,1)↔RIGHT(SON,1)
	LEFT(TYPE,2)↔RIGHT(RELOC,2)
	LEFT(ROW,3)↔RIGHT(COL,3)
	LEFT(ENDO,4)↔RIGHT(EXO,4)
	LEFT(ENDO,4)↔RIGHT(EXO,4)